home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO027A.dsk / BYESEL.EXE.BAS < prev    next >
BASIC Source File  |  2012-02-16  |  2KB  |  70 lines
  1. 1  REM   PROGRAM SELECTOR--File name *STARTUP*
  2. 2  REM   This program must be configured to your arrangement of
  3. 3  REM   programs within your system. Lines 400 to 500
  4. 4  REM   'bye' is Alan Bird's patch for ProDos (almost a standard)
  5. 110 D$ =  CHR$(4): TEXT : PRINT D$"pr#3": PRINT : PRINT 
  6. 139  REM   Display menu
  7. 140  VTAB 1
  8. 142  HTAB 2: PRINT "MENU AT THE TOP ~ ~ ~"
  9. 143  PRINT "----------------------"
  10. 210  HTAB 10: PRINT "1) AppleWorks": PRINT 
  11. 220  HTAB 10: PRINT "2) Communications": PRINT 
  12. 230  HTAB 10: PRINT "3) V.I.P. Professional": PRINT 
  13. 240  HTAB 10: PRINT "4) ": PRINT 
  14. 250  HTAB 10: PRINT "5) ": PRINT 
  15. 260  HTAB 10: PRINT "6) ": PRINT 
  16. 270  HTAB 10: PRINT "7) Maug Message Manager": PRINT 
  17. 280  HTAB 10: PRINT "8) Utilities": PRINT 
  18. 290  HTAB 10: PRINT "9) BASIC Programing": PRINT 
  19. 295  HTAB 10: PRINT "0) BYE"
  20. 298  REM 
  21. 299  REM     Get option
  22. 300  HTAB 20: PRINT "Please Select One:";
  23. 305  GET A$: PRINT A$
  24. 310  ON  VAL(A$) GOTO 410,420,430,440,450,460,470,480,490
  25. 319  REM    Illegal Option
  26. 320  VTAB 21
  27. 325  IF A$ = "0" GOTO 350
  28. 330  HTAB 20: PRINT "<<<   TRY THAT AGAIN   >>>";
  29. 340  GOTO 305
  30. 350  PRINT D$"bye"
  31. 389  REM 
  32. 399  REM      SENDERS                                                          
  33. 410  REM  set up appleworks
  34. 412  PRINT D$;"prefix/rf/aw"
  35. 414  PRINT D$"-super.system"
  36. 416  END 
  37. 419  REM    sends to Comm Program
  38. 420  PRINT D$"prefix /rf/talk"
  39. 426  PRINT D$;"-tic"
  40. 428  END 
  41. 429  REM     sends to VIP Professional
  42. 430  ONERR  GOTO 3000
  43. 431  PRINT D$"prefix /hd/vip"
  44. 433  PRINT D$"-vipboot.system"
  45. 435  END 
  46. 440  VTAB 21: GOTO 330: REM  fill in your own
  47. 445  END 
  48. 450  VTAB 21: GOTO 330: REM  fill in your own
  49. 455  END 
  50. 460  VTAB 21: GOTO 330: REM  fill in your own
  51. 465  END 
  52. 470  PRINT D$"prefix /rf/msg.mgr"
  53. 472  PRINT D$;"-maug.msg.mgr"
  54. 479  REM   Sends to /hd/util
  55. 480  ONERR  GOTO 4000
  56. 481  PRINT D$"prefix /HD/Util"
  57. 483  PRINT D$"-startup"
  58. 488  END 
  59. 489  REM   sets up Basic
  60. 490  HOME 
  61. 492  PRINT  CHR$(4);"PR#3"
  62. 493  PRINT  CHR$(4);"prefix /RF"
  63. 494  PRINT "       You are working from RamFactor -- BASIC"
  64. 495  PRINT "___________________________________________________________ ______"
  65. 496  PRINT "Prefix - /RF                               Type 'BYE' for Re-start"
  66. 497  NEW : END 
  67. 3000  HOME : VTAB 15
  68. 3005  PRINT "Your Hard Disk is not ready ----- Power off and re-boot"
  69. 4010  END 
  70. 9999  REM   Revised by Dave Gair 2/21/87